home *** CD-ROM | disk | FTP | other *** search
- # Script to Login to Internet Provider (Dialup Shell Account)
- count 5
- loop:
- if !count
- hangup
- display "^M^JAborting Script, Maximum count exceeded^M^J"
- abort
- endif
- expect 10 "login:"
- if !expect
- hangup
- redial
- goto loop
- endif
- # This Service Provider expects a system name for the first login,
- # the the login and password values for that system.
- output "starbase^M"
- expect 10 "login:"
- output "zkrr01^M"
- sleep 1
- password
- expect 15 "Password:"
- output "^P^M"
- sleep 2
- output "^M"